home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games Extra 1996 September / Amiga Games Extra CD-ROM 9-1996.iso / archive / spiele / demoversionen / poing.dms / poing.adf / Amiga_E_Tools / BootLock.GUI.e < prev   
Text File  |  1996-06-30  |  569b  |  40 lines
  1.  
  2. /*VER$1.0 ©1996 Deutschmann Walter*/
  3. /*system read/write lock unlock requester*/
  4.  
  5. OPT OSVERSION=39
  6.  
  7. PROC main()
  8.  
  9. DEF arg,text[80]:STRING
  10.  
  11. text:='Lock/Unlock your BootDevice?'
  12.  
  13. arg:=EasyRequestArgs(0,[20,0,'©1996 Deutschmann Walter',text,'   Lock   |   Unlock   '],0,NIL)
  14.  
  15. WriteF(' \n \n            ©1996 Deutschmann Walter \n\n')
  16.  
  17. IF arg=1
  18.  
  19. Execute ('lock sys: on >NIL:',NIL,NIL)
  20.  
  21.  
  22.  
  23. WriteF('            System Status: Read only!')
  24.  
  25. ENDIF
  26.  
  27. IF arg=0
  28.  
  29. Execute ('lock sys: off >NIL:',NIL,NIL)
  30.  
  31.  
  32. WriteF('            System Status: Read/Write')
  33.  
  34. ENDIF
  35.  
  36.  
  37. CleanUp(1)
  38.  
  39. ENDPROC
  40.